home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 021-030 / amok23 / printf / printftest.mod < prev    next >
Text File  |  1993-11-04  |  1KB  |  43 lines
  1. (*
  2.   :Program.       PrintfTest
  3.   :Author.        Volker Rudolph
  4.   :Address.       Medicusstr. 31 / 6750 Kaiserslautern
  5.   :Phone.         0631/17160
  6.   :ShortCut.      [vor]
  7.   :Version.       1.0
  8.   :Date.          25.6.1989
  9.   :Copyright.     PD
  10.   :Language.      Modula-2
  11.   :Translator.    M2Amiga 3.2d
  12.   :Imports.       Printf [vor]
  13.   :Contents.      Testprogramm zum Modul NoGuru.
  14.   :Usage.         Starten
  15. *)
  16. MODULE PrintfTest;
  17.  
  18. FROM Printf IMPORT Printf0,Printf2,L,writeProc;
  19. FROM Str IMPORT Length;
  20. FROM Terminal IMPORT WriteString;
  21. FROM SYSTEM IMPORT ADR;
  22.  
  23. VAR
  24.   string:ARRAY [1..80] OF CHAR;
  25.  
  26. BEGIN
  27.   (* Damit das Programm auch von der Workbench aus läuft *)
  28.   writeProc := WriteString;
  29.  
  30.   Printf0("\[0;33;40m RED \[0;31;40m WHITE\n");
  31.  
  32.   string := "Teststring";
  33.   Printf2("Der String %6.8s ist %ld Zeichen lang.\n",
  34.           ADR(string),Length(string));
  35.  
  36.   string := "Test";
  37.   Printf2("Der String %6.8s ist %ld Zeichen lang.\n",
  38.           ADR(string),Length(string));
  39.  
  40.   Printf2("Dezimal %3ld = Hex $%04lx.\n",123H,123H);
  41.  
  42. END PrintfTest.
  43.